home *** CD-ROM | disk | FTP | other *** search
/ The Game Master (3rd Edition) / The Game Master 3rd edition.iso / files / demo_vga / democga / rod.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1986-04-14  |  768 b   |  35 lines
  1. 0  ' THIS PROGRAM IS CALLED ROD, AUTHOR UNKNOWN
  2. 2  KEY OFF
  3. 3  ON ERROR GOTO 1000
  4. 5  CLS
  5. 10  SCREEN 1,0
  6. 20  FOR W=3 TO 50
  7. 30  FOR I=1 TO 19
  8. 40  FOR J=0 TO 19
  9. 50  K=I+J
  10. 55  IX=I*8
  11. 60  IX8=IX+8
  12. 70  IY=I*5
  13. 80  KX=K*8
  14. 90  KY=K*5
  15. 100  IY5=IY+5
  16. 110  KX8=KX+8
  17. 120  KY5=KY+5
  18. 130  COL= (J*3/(I+3)+I*W/12) MOD 8
  19. 150  COL=COL MOD 4
  20. 160  LINE(IX,KY)-(IX8,KY5),COL,BF
  21. 170  LINE(KX,IY)-(KX8,IY5),COL,BF
  22. 180  LINE(319-IX,199-KY)-(319-IX8,199-KY5),COL,BF
  23. 190  LINE(319-KX,199-IY)-(319-KX8,199-IY5),COL,BF
  24. 195  LINE(KX,199-IY)-(KX8,199-IY5),COL,BF
  25. 196  LINE(319-IX,KY)-(319-IX8,KY5),COL,BF
  26. 197  LINE(IX,199-KY)-(IX8,199-KY5),COL,BF
  27. 198  LINE(319-KX,IY)-(319-KX8,IY5),COL,BF
  28. 240  NEXT J,I
  29. 250  NEXT W
  30. 260  GOTO 1030
  31. 1000  KEY ON:CLS:RESUME 1010
  32. 1010  PRINT " ERROR ";ERR;" HAS OCCURED IN LINE # ";ERL
  33. 1020  PRINT "THIS PROGRAM REQUIRES BASICA AND THE COLOR GRAPHICS ADAPTOR "
  34. 1030  END
  35.